home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00052_batQT parent for MPC.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  2.7 KB  |  136 lines
  1. property movieid, duration, movieLoc, movieL, movieT, movieR, movieB, moviePauseTime
  2. global gSoundLevel
  3.  
  4. on birth me
  5.   set movieid to EMPTY
  6.   set duration to EMPTY
  7.   set movieLoc to EMPTY
  8.   set movieL to EMPTY
  9.   set movieT to EMPTY
  10.   set movieR to EMPTY
  11.   set movieB to EMPTY
  12.   set moviePauseTime to EMPTY
  13.   return me
  14. end
  15.  
  16. on QTPlay me
  17.   if movieid <> EMPTY then
  18.     set the soundLevel to gSoundLevel
  19.     movieid(mPlay, 0, 0, EMPTY)
  20.   end if
  21. end
  22.  
  23. on QTPause me
  24.   if movieid <> EMPTY then
  25.     movieid(mStop)
  26.     movieid(mGetTime)
  27.     set moviePauseTime to integer(the result)
  28.   end if
  29. end
  30.  
  31. on QTDispose me
  32.   if movieid <> EMPTY then
  33.     if objectp(movieid) then
  34.       movieid(mdispose)
  35.     end if
  36.     set movieid to EMPTY
  37.     set duration to EMPTY
  38.     set movieLoc to EMPTY
  39.     set movieL to EMPTY
  40.     set movieT to EMPTY
  41.     set movieR to EMPTY
  42.     set movieB to EMPTY
  43.     set moviePauseTime to EMPTY
  44.   end if
  45. end
  46.  
  47. on QTIdle me
  48. end
  49.  
  50. on QTOpenMovie me, theFilePath, theRect
  51.   set movieid to batQT(mnew)
  52.   movieid(mOpen, theFilePath, 0)
  53.   movieid(mStop)
  54.   movieid(mLength)
  55.   set duration to integer(the result)
  56.   set movieL to integer(item 1 of theRect)
  57.   set movieT to integer(item 2 of theRect)
  58.   set movieR to integer(item 3 of theRect)
  59.   set movieB to integer(item 4 of theRect)
  60.   movieid(mSetMovieBox, movieL, movieT, movieR, movieB)
  61. end
  62.  
  63. on QTSetAudioLevel me, theLevel
  64.   if movieid <> EMPTY then
  65.     movieid(mSetVolume, 255)
  66.   end if
  67. end
  68.  
  69. on QTSetRect me, theRect
  70.   set sL to integer(item 1 of theRect)
  71.   set sT to integer(item 2 of theRect)
  72.   set sR to integer(item 3 of theRect)
  73.   set sB to integer(item 4 of theRect)
  74.   movieid(mSetMovieBox, sL, sT, sR, sB)
  75. end
  76.  
  77. on QTSetCurrTime me, theTime
  78.   movieid(mSetVolume, 0)
  79.   movieid(mSetTime, theTime)
  80.   movieid(mPlay, 0, 0, EMPTY)
  81.   movieid(mStop)
  82.   movieid(mSetTime, theTime)
  83.   movieid(mSetVolume, 255)
  84. end
  85.  
  86. on QTSetTimeCallBack me, theHandle, theTime
  87.   movieid(mAddCallBack, theTime)
  88. end
  89.  
  90. on QTGetCurrtime me
  91.   movieid(mGetTime)
  92.   return integer(the result)
  93. end
  94.  
  95. on QTgetrect me
  96.   return movieid(mGetMovieBox)
  97. end
  98.  
  99. on QTGetLoc me
  100.   movieid(mGetMovieBox)
  101.   set movieRect to string(the result)
  102.   set movieLoc to item 1 to 2 of movieRect
  103.   return movieLoc
  104. end
  105.  
  106. on QTGetDuration me
  107.   movieid(mLength)
  108.   set duration to integer(the result)
  109.   return duration
  110. end
  111.  
  112. on qtrefresh me
  113.   if movieid <> EMPTY then
  114.     movieid(mSetMovieBox, movieL, movieT, movieR, movieB)
  115.   end if
  116. end
  117.  
  118. on QTaway me
  119.   if movieid <> EMPTY then
  120.     movieid(mSetMovieBox, -movieR - 640, -movieB - 480, -movieL - 640, -movieT - 480)
  121.   end if
  122. end
  123.  
  124. on QTreturn me
  125.   if movieid <> EMPTY then
  126.     movieid(mSetMovieBox, movieL, movieT, movieR, movieB)
  127.   end if
  128. end
  129.  
  130. on QTsetPauseTime me
  131.   if movieid <> EMPTY then
  132.     movieid(mStop)
  133.     movieid(mSetTime, moviePauseTime)
  134.   end if
  135. end
  136.